sub main()
	dim aList as collection
	dim a as string, b as string
	a = "jose"
	b = "cuevas"
	aList = list(a, b)

	aList["a"] = "Joe"
	msgbox("count=" & aList.count())
	msgbox(aList["a"] & " " & aList["b"])

end sub